7 PRINT "CHECKERS" ; GOTO 3000 

8 R=(J ; Q=~ 1 ; X=1 1 ; U=89 ; T=- 1 ; U=S ; R=12 

9 NEXT Q; NEXT X 

10 NEXT U ; NEXT U; IF T<0GOTO 1200 
20 GOSUB 2000 ; PRINT "YOU WIN" ; STOP 
50 CX=-71;FQR U=flTO 89; IF @CUX4GQT0 55;R=U;U=89 
55 NEXT U ; F OR U=1T0 8; PRINT #l,U,;FOR U=RTO 89; IF @CUX4G0T0 10 
60 FOR X=9T0 11STEP 2; FOR Q=1T0 -1STEP -2; IF @CU)=4Q=-1 
70 B=QbX;S=U+B; IF @(S)-0GOTO 9 
75 IF U >2IF @(S)#3G0T0 9 
80 C=B+B;F=Qb20;Z=Ub 100; GOTO Z 
100 IF @CU+C)#3G0T0 9 
200 IF @( S ) >2G0T0 9 
220 IF U=1 S=U+C;GOTO 8 
230 S=U-B; IF @<S)#3G0T0 9 
235 IF @C U-C+F )=2G0T0 260 
240 IF @( U-F ) >3 U=U-F ; GOTO 8 
250 IF ®( U-C ) >3 U=U-C; GOTO 8 
260 S=U-B+F ; IF @<S)=3G0T0 8 
290 GOTO 9 

300 IF @C S-F )#1G0T0 9 
310 IF @(S)=3G0T0 8 
320 S=S-2b(X-10); IF @CS)=3G0T0 8 
330 GOTO 9 

400 IF @(U+C)=8IF @CU)=4G0T0 8 
410 GOTO 9 
500 L=1 

600 L=1;IF @C U+C X3G0T0 9 
610 IF @( U+F X 3IF @( U+C-F )=3G0T0 9 
620 IF ©( U+F )=3XF @C U+C-F X1GOTO 9 
625 IF U=5G0T0 700 

630 L=L+1 ; D=@C U+LbB ) ; IF C D-0 ) + ( D>3 )GOTO 9 

650 IF L#2IF D< 3G0T0 8 

660 GOTO 630 

700 IF @CU)=5GQT0 9 

800 GOTO 8 

1000 CX=~71;CY=40; PRINT "FROM"; GOSUB 1700; R=I ; PRINT “ TO"; GOSUB 1700; S=I 
1005 BOX -45,14,62,60,2 

1010 IF C@CR)>2) + (@CR)=0)+C@(S)#3)GOTO 1000 
1040 IF @CR)#1IF R >SGOTO 1000 
1200 IF ( CS-R)b(S-R) X122G0T0 1600 
1210 IF T >0IF (S+R)c2X4G0T0 1000 
1220 J=T;@CS)=@(R);@C C S+R )c2 )=3; @( R )=3 

1400 FOR X=9TQ 11STEP 2;G=S+JbX;IF ( @( G )=3+T ) + ( @C G )=3+T+T )GOTO 1450 
1430 GOTO 1500 

1450 G=S+2bJbX; IF @CG)#3G0T0 1500 
1470 R=S ; S=G ; X=1 1 ; NEXT X;GOTO 1220 

1500 NEXT X; IF ( RBSC @( S )-3 ) )=2IF J=T J=~T;GOTQ 1400 
1510 GOSUB 2000; GOTO 1610 

1600 @(S)=@CR);@CR)=3;I=R; GOSUB 2020; I=S; GOSUB 2020 
1610 IF T >0IF S >80@C S )=1 
1620 IF T < 0IF S< 20@( S )=5 
1630 IF T >0GOTO 50 

1640 T=1 ; BOX -45, 14, 62, 60, 2; GOTO 1000 

1700 INPUT “ ROW“M; INPUT “ CGL"N; I=Mbl0+N+l ; RETURN 

2000 CLEfiR ; FOR I=1T0 8; CY=40; CX=-6+Ibl0; PRINT #1,1,; NEXT I; FOR I=1T0 8;CX=-5 

2010 CY=-49+Ibl0; PRINT #1,1,; NEXT I 

2011 LINE -2,0, 2; LINE -2, -44, 1; LINE 77, -44, 1 ;LINE 77,35, 1; LINE -2,35, 1;LINE -2,0 



, 1 

2012 FOR I = 12T0 89; IF @C I )#0GOSUB 2020 

2015 NEXT I; RETURN 

2020 M= - 1 7+ ( I - ( Icl0)bl0)bl0 

2030 N=-48+( Icl0 )bl0 

2040 BOX M, N, 10, 10, 1 ; IF @C I )#3 J-flBSC @( I ) -3 )b3; BOX M,N,8,J,3 
2050 IF @C I ) >3B0X M,N,B, J-2,3 
2100 RETURN 

3000 FOR I=1T0 100; @C I )=0;NEXT I ; FOR I=12T0 18STEP 2 
3010 @C I )=2; @C 1+11 )=2; @( 1+20 )=2; @( 1+31 )=3; @( 1+40 )=3 
3020 @( 1+51 )=4; @< 1+60 )=4; @( 1+71 )=4; NEXT I ; R=67 
3030 GOSUB 2000; GOTO 50 
> 



RRCRDIRN 



LOWERCASE = 1-BYTE KEYPAD WORDS. UNDERSCORES 
= SPACES. 1727 CHARACTERS 



7_print * (OCHECKERS^JOHN COLLINS' {goto 30 

00 

8_R=U;Q=-i;x=li;U=89{T=-l{V=8{A=12 

9_next QJnext X 

10_next UJnext 0{if KOgoto 1200 

20_gosub 2000{print 'KEY_run ' {STOP 

— 50_CX=-71 {for U=Ato 89; if 0<UX4goto 55{A=U 
{U=89 

— 55_next UJfor V=lto 8{print #l,U,{for U=Ato 
89; if 0(UX4goto 10 

— 60_for X=9to 11 step 2{for G=lto -Istep -2Si 
f 0<U)=4Q=-1 

70_B=GxX{S=UtB{if 0(S)=Ogoto 9 

75_if 0>2if 0<S)*3goto 9 

80_C=B+B { F=Qx20 { Z= Vxl 00 { g oto Z 

_100_if 0<UfC)*3goto 9 
_200_if 0(S)>2goto 9 
_220_if V=l_S=UfC{goto 8 
_230_S=U-B{if 0<S)*3goto 9 
_235_if 0(U-CfF)=2goto 260 
_240_if 0(U-F)>3 U=U-F;goto 8 
_250_if 0(U-C»3_U=U-C{goto 8 
_260_S=U-B+F(if 0(S)=3goto 8 
_290_goto 9 

_300_if 0<S-F)*lgoto 9 
_310_if 0<S)=3goto 8 
_320_S=S-2x ( X-l 0 ) ; i f 0(S)=3goto 8 
_330_goto 9 

_400_if 0(UfC)=Oif 0(U)=4goto 8 
410 goto 9 
_500_L=1 

_600_L=1 Jif 0(UfCX3goto 9 
_610_if 0<UfFX3if 0<UfC-F)=3goto 9 
_620_if 0<U+F)=3if 0(U+C-F)=lgoto 9 
_625_if V=5goto 700 

_630_L=Lfl {D=0<UfLxB) { if (D=0) + (Ii>3)goto 9 

_650_if L*2if D<3goto 8 

_660_goto 630 

_700~if 0(U)=5goto 9 

_800_goto 8 



1000_CX=-71 ;CY=40,*print 'FROM'Jgosub 1700;R=I 

Jprint "_T0* {gosub 1700JS=I 

1010_if (0(R)>2)+(0(R)=O)+(0(S)*3)goto 1000 

1040_if 0(R)*lif R>Sgoto 1000 

1200_if ( (S-R)x(S-R) X122goto 1600 

121 0_if T>0if 0( (S+RH-2X4goto 1000 

122O_J=T{0(S>=0(R){0<(StR>f2>=3{0(R)=3 

1400_for X=9to llstep 2{G=StJxX{if <0(G)=3fT) 
+(0(G)=3+T+T)goto 1450 
1430_goto 1500 

1450_G=S+2>:JxX; if @(G)#3goto 1500 
1470_R=S;S=G;X=11 {next XJgoto 1220 
1500_next X{if (ABS(0(S)-3) )=2if J=T J=-T; 0 ot 
o 1400 - y 

1510_gosub 2000{goto 1610 

16OO_0(S)=0(R);e(R)=3fi=R; g osub 2020{I=S{gosu 
b 2020 

1610_if T>0if S>8O0(S)=1 
1620_if T<0if S<2O0(S)=5 
1630_if T>0goto 50 
1640_T=1 {goto 1000 

1700_input '_R0W'M{ input * COL 'N{ I=Mxl0+Nfl { r 
eturn 

2000_clear {for I=lto 8{CY=40{CX=-6fIxl0{prin 
t #1,1, {next I {for I=lto 8{CX=-5 
201 0_CY=-49+Ixl0{p rint *1,1, {next I{for I=12t 
o 89{if 0( I )#0gosub 2020 
2015_next I {return 

2020_N=-17+< I-( If I0)xl0)xl0 
2030_N=-49+( If 10>xl0 

2040_box M,N,10, 10, 1 {if 0(I)*3 J=ABS(0(I )-3)x 

3{box M,N,8, J,3 

2050_if 0(1 )>3box M,N,6,J-2,3 

2100_return 

3000_for I=lto lOO{0(I)=O{next I {for I=12to 1 
8step 2 

3oio_0a)=2;0(itii)=2;e(it2o)=2f0(it3i)=3{0(i 

+40)=3 

3O2O_0( 1+51 ) =4 {0( If6O)=4{0( 1471 )=4{ next I,*A=6 
3030_gosub 2000 {goto 50 




; INPUT %{ 20258) 

>%( 20124 >=20258 
>L. I ST 

1 GOTO 300 

2 M=( I-( IcG)bG)bG-17; N=C IcG >bG-49 ; BOX M, N, G, G, 1 ; IF *( I )#3J=flES( *( I 
N, 8,1,3 

3 IF *( I )>3B0X M,N,6, J-2,3 

4 RETURN 

8 R=U;G=-1 ;X=li;W=K;K=Y;T=~l;U=8; IF J=1K=0 

9 NEXT Q; NEXT X 

10 NEXT K ; NEXT U; IF T<0GOTO 85 

12 GOSUB 250; PRINT "KEY RUM " ; STOP 

13 J=RNB ( 2 ) ; CX=E; FOR U=1T0 8; PRINT #1,U, ; IF J=2F0R K=OTO Y ; GOTO 15 

14 FOR K=YTO OSTEP -1 

15 U=&( K > ; IF U=0GOTO G 

IB FOR X=3T0 11STEP 2;F0R Q=1T0 - 1STEP -2; IF *(U>=4Q=~1 

17 B=QtaX;S=U+B; IF *CS)=0GOTO 9 

18 IF U>2IF *( S )#3G0T0 9 

18 C=B+B; F=Qb20; 2=UbG+G; GOTO 2 
20 J.F ( *■( U+C >#3 ) + ( *( S ) >2 )GOTO 8 
22 S=U+C ; GOTO 8 
30 IF *( S ) >2G0T0 9 

32 S=U-B; IF *<S>#3G0T0 8 

33 IF *(U~C+F)=2G0T0 38 

34 IF *( U-F > >3U=U-F; GOTO 8 

35 IF *( U-C ) >3U=U-C; GOTO 8 

36 S=U-B+F; IF *(S)=3G0T0 8 

37 GOTO 8 

48 IF *(S-F)#1G0T0 8 
42 IF *(S)=3G0T0 8 
44 S=S-2bCX-G>; IF *(S)=3G0TQ 8 
46 GOTO 8 




50 IF *( U+C >=0IF *(U>=4G0TQ 8 
52 GOTO 8 

60 . — t 
70 L=1;P=U+C; IF *(PX3G0T0 8 
72 IF U-S-F X3IF *(P-F)=3G0T0 8 
74 IF #(U+F)=3IF *( P-F )=1G0T0 9 

76 IF U=5G0T0 80 

77 L=L+1 ; B=#( U+LbB ) ; IF C D=0 ) + ( D>3 )GOTO 8 

78 IF L#2IF D< 3G0T0 8 
78 GOTO 77 

80 IF *CU)=5G0T0 8 
30 GOTO 8 

81 PRINT " ROW" , ; M=KP; TU=M; PRINT ;PRINT " COL" N=KP; TU=N; PRINT ; I=( M-48 )bG+N-47 
; RETURN 

82 CX=E ; CY=40 ; FOR I=1T0 8;PRINT " " ; NEXT I ; CY=40; PRINT * FROM " ; GOSUB 81;R= 

I; PRINT "TO GOSUB 81; 8=1 

83 IF ( *( R ) >2 ) + ( *( R )=0 > + ( *( s )#3 )GOTO 92 
94 IF *(R)#1IF R>SGOTO 32 

85 IF C FIBSC S-R ) X 12G0T0 200 

86 IF T >0IF *< (S+R)c2X4G0T0 82 

88 J=T ; *( S >=*( R > ; I = C S+R )c2; *( I )=3; #( R )=3; IF T>0FOR L=OTO Y;IF *( L )=I*< L )=0; L=Y 
88 IF T >0NEXT L 

100 FOR X=8T0 11 STEP 2;H=S+JbX; IF ( *( H )=3+T ) + ( *( H )=3+T+T >GOTO 120 
102 ? 

110 GOTO 140 

120 H=S+2b JbX; IF *CH)#3GGT0 140 



130 

140 

150 

200 

210 

220 

230 

240 

250 

2G0 

270 

300 



-T; GOTO 100 



310 

320 

330 

> 



R=5 ; S=H; X=1 1 ; NEXT X;GOTO 98 
NEXT X; IF (flBSt *(S)-31 >=2IF J=T J= 

GOSUB 250; GOTO 210 

*( S )=*( R > ; *( R 3=3; I=R; GOSUB 2; I=S;GOSUB 2 
IF T >0IF S >80*C 5 1=1 
IF T<0*( W )=S; IF S<20*(S1=5 
IF T >0GOTO 13 
T=1 ; GOTO 92 ' 

CLEfiR ; FOR I = 1TQ 8 ; CY=40; CX==IbG-G ; PRINT 
CY=IbG-49; PRINT #1,1, ; NEXT 1 ; FOR I-12TQ 
NEXT I; RETURN 

FC= 107 ; &( 3 1 = 17; &(0 1=7; &t 1 )=?;&( 2 )=8;,&( 31=8; X-100; FOR I=0TO X; 1 1=0; NEXT I 
FOR I=12T0 18STEP 2;F0R J=0TO 7; C=Jc2; L-I+RM+Gb J; IF J<3ML)=2 ^ 

IF J >4*( L 1=4 ; X=X+1 ; *( X 1=L ^ _ v 

IF J >2IF J<5*( L 1=3 
NEXT J ; NEXT I ; GOSUB 250 ; GOTO 



# 1 ; 



I, 

IF 



; NEXT I; FOR 1 
*< 1 1GOSUB 2 



= 1T0 8;CX— 5 



13 



I 




